home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_bindkey.edge < prev    next >
Text File  |  1994-11-17  |  711b  |  44 lines

  1. /*
  2. ** $VER: Menu_BindKey.edge 1.3 (Sunday 19-Sep-93 20:18:34)
  3. **
  4. ** Bind a macro to a key
  5. **
  6. ** Written by Thomas liljetoft
  7. */
  8.  
  9.  
  10. options results
  11.  
  12. /* get the users error-report level */
  13.  
  14. getenvvar _ge_errlevel
  15. errlevel = result
  16.  
  17. /* ask for a key-description to use */
  18.  
  19. 'requestkey' title '"Enter key to bind macro to."'
  20. if RC == 0 then do
  21.  
  22.     /* ok so far, now ask for a macro to bind to the key */
  23.  
  24.     key = result
  25.     'requestfile' title '"Select macro..."' path '""' file '""' getdir
  26.     if RC == 0 then do
  27.  
  28.     /* okidoki, add to the key-list */
  29.     
  30.         'keyboard' key result
  31.  
  32.         end
  33.     end
  34.  
  35. if RC >= errlevel then do
  36.  
  37.     /* something went wrong enought to be reported so report */
  38.  
  39.     'fault'
  40.     'requestnotify' result
  41.     end
  42.  
  43. exit(0)
  44.